home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 6 / Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso / 001a / ezzcomm.zip / EXECPC.T < prev    next >
Text File  |  1991-02-16  |  3KB  |  73 lines
  1.  : EZ-ZCOMM Copyright 1991 by Roger E. Hough, All Rights Reserved.
  2.  : Licensed for use at your own risk without fee. Altered versions,
  3.  : when distributed, must be clearly marked as altered and accompanied
  4.  : by the originals.
  5.  :
  6.  : Entry in %ZCUSER.IDS for Exec-PC: remote,password,first,last
  7.  :   remote:   argument of "call" command
  8.  :   password: signon password (required)
  9.  :   first:    first name. Optional: assumed equal to %n1
  10.  :   last:     last name.  Optional: assumed equal to %n2
  11.  :
  12.  : 90 MNP-capable phone lines for 300/1200/2400 baud at 414-789-4210
  13.  : Ten USR HST Courier Dual Standard Modems at 414-789-4300
  14.  : Fastest d/l at HST 14,400/450 baud w/MNP 4(not MNP5) using Zmodem
  15.  : $60 for 1 yr subscription, $20 for 3 months
  16.  :
  17.  ena -K!Z p?0 findq "\n%remote," %lib/%ZCUSER.ids
  18.  if ? split z0 , , , "";if %z1 goto haveuser
  19.  pat;pat 24cp "rz\r**\030" "@rz -p";while c wait -f600
  20.  ife r nolog close;return
  21. haveuser:
  22.  ife !%z2 sets z2 %n1;ife !%z3 sets z3 %n2
  23.  set fpgup "@accept s0 Upload-Filename:;if %s0 sz %s0"
  24.  set fpgdn "@rz"
  25.  pat
  26.  pat 0c "FIRST name -> " "\b\b%z2\r"
  27.  pat 1c "LAST name -> " "\b\b%z3\r"
  28.  pat 2c "Password -> " "%z1\r"
  29.  pat 3i "left) BULLETIN (*"
  30.  pat 23cp "Press any key to continue -> " \r
  31.  pat 24cp "/Stop/Continuous/)" \336C
  32.  : pat 24cp "/N/C=continuous)" "\336C"
  33.  wait -f30;if n bye;ife r nolog close;return
  34.  pat;pat 0i ") -> "
  35.  wait -f30;if n bye;ife r nolog close;return
  36.  pat;mput "*";pat 0i "left) BULLETIN (*"
  37.  wait -f30;if n bye;ife r nolog close;return
  38.  pat;pat 0i ") -> ";pat 1i ")-> "
  39.  wait -f30;if n bye;ife r nolog close;return
  40.  pat;mput Q
  41.  pat 0i "minutes left) TOP ("
  42.  wait -f30;if n bye;ife r nolog close;return
  43.  pat;pat 0i ") -> ";pat 1i ")-> "
  44.  wait -f30;if n bye;ife r nolog close;return
  45.  pat;mput "F"
  46.  pat 0i "COLLECTION SELECTION ("
  47.  wait -f30;if n bye;ife r nolog close;return
  48.  pat;pat 0i ") -> ";pat 1i ")-> "
  49.  wait -f30;if n bye;ife r nolog close;return
  50.  pat;mput "A"
  51.  pat 0i "minutes left) FILE MENU ("
  52.  wait -f30;if n bye;ife r nolog close;return
  53.  pat;pat 0i ") -> ";pat 1i ")-> "
  54.  wait -f30;if n bye;ife r nolog close;return
  55.  pat;mput "L"
  56.  pat 0i "left) FILE LIST Command ("
  57.  wait -f30;if n bye;ife r nolog close;return
  58.  pat;pat 0i ") -> ";pat 1i ")-> "
  59.  wait -f30;if n bye;ife r nolog close;return
  60.  set z0 "C"
  61.  pat;mput "L"
  62.  pat 0c "\n>>More? (" "@mput \336%z0;set z0 N"
  63.  pat 1i "left) FILE LIST Command ("
  64.  wait -f30;if n bye;ife r nolog close;return
  65.  pat;pat 0i ") -> ";pat 1i ")-> "
  66.  wait -f30;if n bye;ife r nolog close;return
  67.  echo "%n1, press Alt-N to do something other than log off."
  68.  pat;pat 24cp "rz\r**\030" "@rz -p";wait -F5;if !c bye;ife r nolog close;return
  69.  pat;mput "G";pat 0i "Enter your choice --> "
  70.  wait -f30;if n bye;ife r nolog close;return
  71.  pat;mput "N";pat;while c wait -f600
  72.  ife r nolog close;return
  73.